<% id = request("id") page = request("page") sql = "select *, docfile, content from dbsosiweb.dbo.Sosi_DownLoad where id = " & id & "" set rs = dbcon.execute(sql) num = cint(rs("num")) msglevel = cint(rs("msglevel")) msgorder = cint(rs("msgorder")) visit_num = cint(rs("visit_num")) tag = rs("tag") docfile = rs("docfile") content = rs("content") title = rs("title") title = replace(title,"&","&") title = replace(title,"<","<") title = replace(title,">",">") if tag = "1" then content = replace(content,"&","&") content = replace(content,"<","<") content = replace(content,">",">") end if if tag <> "2" then content = replace(content, chr(10), "
") content = replace(content, " ", "  ") content = replace(content, "> ", "> ") end if %>

Subject : <%=title%>   Name : <%=rs("writer")%>      Update : <%=left(rs("writeday"),10)%>      Count : <%=rs("visit_num")%>      File : "> <%=content%> <% if msgorder > 0 then sql = "select id, msglevel, title from dbsosiweb.dbo.Sosi_NewsBoard where num = " & num & " and msgorder < " & msgorder & " order by msgorder desc" set prs = dbcon.execute(sql) else sql = "select id, msglevel, title from dbsosiweb.dbo.Sosi_NewsBoard where num > " & num & " order by num, msgorder desc" set prs = dbcon.execute(sql) end if sql = "select id, msglevel, title from dbsosiweb.dbo.Sosi_NewsBoard where num = " & num & " and msgorder > " & msgorder & " order by msgorder" set nrs = dbcon.execute(sql) if nrs.eof then sql = "select id, msglevel, title from dbsosiweb.dbo.Sosi_NewsBoard where num < " & num & " and msgorder = 0 order by num desc" set nrs = dbcon.execute(sql) end if %> <% if not prs.eof then level = cint(prs("msglevel")) if level > 0 then pre_img = "[Re]" for i = 1 to level pre_img = "  " & pre_img next end if %> preview : <%=pre_img%> &page=<%=page%>"><%=prs("title")%> <% end if %> <% if not nrs.eof then level = cint(nrs("msglevel")) if level > 0 then nre_img = "[Re]" for i = 1 to level nre_img = "  " & nre_img next end if %> next : <%=nre_img%> &page=<%=page%>"><%=nrs("title")%> <% end if %>

<% sql = "update dbsosiweb.dbo.Sosi_DownLoad set visit_num = visit_num + 1 where id = " & id & "" dbcon.execute(sql) prs.close set prs = nothing nrs.close set nrs = nothing rs.close set rs = nothing dbcon.close set dbcon = nothing %>